home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
graphics
/
manythng.zip
/
SETUP.FRM
< prev
next >
Wrap
Text File
|
1993-04-15
|
6KB
|
181 lines
VERSION 2.00
Begin Form SetupForm
BorderStyle = 3 'Fixed Double
Caption = "Many Things"
Height = 4140
Left = 1116
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3720
ScaleWidth = 4668
Top = 552
Width = 4764
Begin TextBox txtMaxCums
Height = 288
Left = 3600
TabIndex = 12
Text = "1000"
Top = 2760
Width = 612
End
Begin TextBox txtChangeMin
Height = 288
Left = 3600
TabIndex = 10
Text = "5"
Top = 2400
Width = 612
End
Begin TextBox txtRepeatCount
Height = 288
Left = 3600
TabIndex = 8
Text = "10"
Top = 2040
Width = 612
End
Begin TextBox txtMaxLines
Height = 288
Left = 3600
MaxLength = 3
TabIndex = 0
Text = "100"
Top = 1680
Width = 612
End
Begin CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 372
Left = 2520
TabIndex = 5
Top = 3240
Width = 1092
End
Begin CommandButton cmdOK
Caption = "OK"
Default = -1 'True
Height = 372
Left = 1320
TabIndex = 4
Top = 3240
Width = 1092
End
Begin Label Label7
Caption = "Maximum number of lines for cumulatives:"
Height = 252
Left = 120
TabIndex = 11
Top = 2760
Width = 3492
End
Begin Label Label6
Caption = "Minutes before changing format:"
Height = 252
Left = 900
TabIndex = 9
Top = 2412
Width = 2772
End
Begin Label Label5
Caption = "Number of lines before changing colors:"
Height = 252
Left = 240
TabIndex = 7
Top = 2040
Width = 3372
End
Begin Label Label4
Alignment = 1 'Right Justify
Caption = "Maximum number of lines:"
Height = 252
Left = 900
TabIndex = 6
Top = 1728
Width = 2652
End
Begin Image Image1
Height = 384
Left = 120
Picture = SETUP.FRX:0000
Top = 120
Width = 384
End
Begin Label Label3
Alignment = 2 'Center
Caption = "Based on an example in, ""Learn Programming and Visual Basic with John Socha"" (recommended)"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 552
Left = 720
TabIndex = 3
Top = 396
Width = 3408
End
Begin Label Label2
Caption = "Multiple Screen Savers by Bruce McLean"
Height = 252
Left = 720
TabIndex = 2
Top = 120
Width = 3972
End
Begin Label Label1
Alignment = 2 'Center
Caption = "This is a collection of screen savers that switch at regular intervals to add a bit of variety to the screen."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 492
Left = 360
TabIndex = 1
Top = 1080
Width = 3852
End
End
Option Explicit
Sub cmdCancel_Click ()
End ' end program
End Sub
Sub cmdOK_Click ()
Dim i As Integer
' store setup data in control.ini
i = WritePrivateProfileString(secName, keyName, txtMaxLines, iniName)
i = WritePrivateProfileString(secName, RepeatName, txtRepeatCount, iniName)
i = WritePrivateProfileString(secName, ChangeMinutesName, txtChangeMin, iniName)
i = WritePrivateProfileString(secName, MaxCumsName, txtMaxCums, iniName)
End ' end program
End Sub
Sub Form_Load ()
txtMaxLines = maxLines ' Set to current max lines
txtRepeatCount = RepeatCount
txtChangeMin = MaxChangeMinutes
txtMaxCums = MaxCums
txtMaxLines.SelLength = 3 ' Select the current value
End Sub
Sub txtMaxLines_KeyPress (KeyAscii As Integer)
If KeyAscii < 32 Then
' ' Let Ctrl keys pass through
ElseIf KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0 ' Discard chars other than digits
End If
End Sub